home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 23 Geos Applications / FILERE.BIN / FILEREADER (.txt) next >
GEOS ConVerT  |  2019-04-13  |  5KB  |  203 lines
  1. FILE READER
  2. SEQ formatted GEOS file V1.0
  3. GEMINI II 80 N+
  4. SDA.ML
  5. LASTER'S 
  6. ONVERTER 
  7. BASIC
  8. System
  9. Hi-res Petascii sequential file reader/printer. Must have System 3 file on disk...    gt
  10. 'DESKTOP SEQUENTIAL FILE READER'
  11. '    1988 GEORGE THOMAS'
  12.  24199:
  13. "MENU TABLE":
  14. "GO":BB$
  15. "FILE NOT FOUND":
  16. 1090,AA,BB$,CC
  17. 0,0,319,199,2:
  18. 8,15,263,150,0:
  19. 8,15,263,150,255
  20. A,B,C,B:B
  21. A,39,C,39
  22. 31,146,C,146:
  23. A,148,C,148:
  24. A,134,31,134:
  25. 31,134,31,146
  26. A,135,31,146:
  27. 239,16,255,26,0:
  28. 239,16,255,26,255
  29. 244,20,250,22,1:
  30. 93,16,161,26,0
  31. "DESKTOP"
  32. "---     "
  33. "SEQUENTIAL FILE READER"
  34. "      ---"
  35. 107,24,A$:
  36. 30,35,B$
  37. "THIS PROGRAM WILL READ OR PRINT PET ASCII "
  38. "SEQUENTIAL FILES THEN ALLOW YOU TO RETURN"
  39. "TO THE  GEOS  DESKTOP  WITHOUT REBOOTING."
  40. "TO SCROLL THE FILE, PRESS THE  SPACE BAR... "
  41.  30,70,XT$:
  42.  30,80,A$:
  43.  30,90,B$
  44.  30,110,C$
  45.  53281,15:
  46. 646,16:
  47.  24295
  48.  "READ","PRINT","DIR","END"
  49. "END":
  50.  "BEEP":
  51. "READ":G$
  52.  "NAME"
  53.  "READ B"
  54. "PRINT":G$
  55.  "NAME"
  56.  "PRINT B"
  57. "NAME":EX$
  58. "ENTER FILE NAME:"
  59.  50,75,268,115,1:
  60.  50,75,265,112,0
  61.  50,75,265,112,255
  62.  55,95,EX$
  63. "PICON":
  64. 230,160,270,190,0:
  65. 231,161,269,189,255:
  66. 233,163,267,184,255
  67. 233,186,233,188:
  68. 235,186,235,188:
  69. 237,186,237,188
  70. 239,186,239,188:
  71. 265,186,266,187,255
  72. "READ"
  73. 237,177,MN$:
  74. "GOBEEP"
  75. "PICON"
  76. 241,152,269,187,0
  77. 242,170,260,177,255:
  78. 242,170,250,162:
  79. 264,162,268,162
  80. 260,170,268,162:
  81. 268,162,268,171:
  82. 261,177,268,171
  83. 244,173,255,174,255:
  84. 257,173,258,174,255:
  85. 263,170,263,175
  86. 264,169,264,174:
  87. 265,168,265,173:
  88. 248,166,262,166
  89. 247,167,261,167:
  90. 249,165,255,153:
  91. 255,153,267,153
  92. 261,165,267,153:
  93. 256,155,264,155:
  94. 255,157,263,157
  95. 254,159,262,159:
  96. 253,161,261,161:
  97. 252,163,260,163
  98. "PRINT"
  99. 241,185,PR$
  100. "GOBEEP":
  101.  "BEEP"
  102. "                "
  103.  150,88,B$
  104.  828,B$:
  105.  828,828
  106. D B$,
  107. 1,828
  108. (B$) 
  109. (B$,I,1) 
  110.  " " 
  111.  "AB":
  112.  "AC"
  113. "AB":X
  114. "AC":MM$
  115. (B$,X):
  116. (MM$,
  117. (MM$),1)
  118. (B$,X)
  119. "READ B":
  120.  "CHECK $"
  121. "PRINT B":G$
  122. "CHECK $":
  123.  "DISK":
  124. "DIR":
  125.  "BEEP"
  126. 0 25,6;"
  127. RESS SPACE BAR TO CONTINUE..":
  128. & 32:
  129. "DISK":
  130. P 7,""
  131. ",S,R"
  132. I FM$:FM
  133. (FM$)
  134. "ERROR":
  135.  "PRINTER":
  136. 24400:F
  137. "FRAME":
  138. 3 15:
  139.  0,0,319,199,255:
  140.  2,2,317,197,255
  141. "DREAD":
  142. . 7,D
  143. 1,32:
  144. Q 7:J
  145.  "SCREEN":
  146. "SCREEN":E
  147.  "GET":
  148. 24400
  149. "PEK":VL
  150. n VL 
  151.  "PEK":
  152.  "GET":
  153. "GET":
  154. D RV$,E,24400
  155.  A,B,RV$
  156. A I,(D
  157. Z),24400:
  158. 24400:
  159. 0:RV$
  160.  "BEEP":
  161. & 32:B
  162.  "BEEP":
  163. "EOF":
  164. "FRAME":
  165.  "DREAD"
  166. "EOF":
  167.  "GO"
  168. "PRINTER":
  169. "  WAIT!! PRINTING:"
  170.  52,94,EX$
  171. 1,4,7
  172. - 7,VR$,1
  173. 1,VR$;
  174.  "GO"
  175. "ERROR":
  176. 013,13;BB$:
  177. < 16:
  178. 0 15,6;"PRESS SPACE BAR TO CONTINUE..."
  179. "BEEP 2":
  180.  1,200:
  181.  1,0,0,15,0
  182.  200:
  183.  2,140:
  184.  2,0,0,15,0
  185.  200:
  186.  "WK"
  187. "BEEP"
  188.  1,550:
  189.  1,0,0,15,0
  190. "WK":
  191.  "GO"
  192. "MENU TABLE":
  193.  24200 
  194.  24347
  195. 169,1,44,169,2,44,169,3,44,169,4,44,169,5,44,169,6,44,169,7,44,169
  196. 8,44,169,9,44,169,10,133,190,96,169,1,44,169,2,44,169,3,44,169,4,44
  197. 169,5,44,169,6,44,169,7,44,169,8,44,169,9,44,169,10,133,191,168,185
  198. 210,94,133,2,185,220,94,133,3,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  199. 0,0,0,0,12,0,0,124,0,68,2,95,0,136,94,7,95,0,139,94,13,95,0,142,94
  200. 23,95,0,145,94,82,101,97,100,0,80,114,105,110,116,0,68,105,114,101
  201. 99,116,111,114,121,0,81,117,105,116,0
  202. 'BECKERHELPER DATA STATEMENTS FROM GEORGE THOMAS 1988'
  203.